COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	α		PROM PROG
C00003 00003	α OCT DDT
C00005 00004	α  DEPOSIT ∧ DEP REGS ∧ (DEP THEN EXAM NEXT)
C00006 00005	α SET BREAK
C00014 ENDMK
C⊗;
α		PROM PROG
α ROM INTER VECTS
	RNMIV:	RNMIL
		RNMIH
	RRSTV:	RRSTL
		RRSTH
	RIRQV:	RIRQL
		RIRQH

α ROM RESTET

?	RRST:	LDX  #	377	2	FIX SP ??
		TXS		1

		LDA  #	RNMIL	2	SETUP INT VECTS
		STA	NMIVL	3
		LDA  #	RNMIH	2
		STA	NMIVH	3

α  RESET I/O

α  RESET SYS ?
α  FALL THRU TO ODT ?

α OCT DDT
					P
					PCL
					PCH
	SAVSP ← SP

	BRKIN:	PHA		1	A	SAVE REGS	
		TXA		1
		PHA		1	X
		TYA		1
		PHA		1	Y

	ODT:	JSR	INCKBW	3	GET C.K.B. COMMAND

					FIND WHAT TO DO

α  FALL THRU TO EXAM REGS
		JSR	INCKBW	3	GET KB CHR
					GET REG NUM

		STA	SPADL	3	SAV IT
		TSX		1	GET SP

	??	LDA @(X)SPADHL: 3	GET VAL

		JSR	DLDPY	3	DISPLAY IT

	??	JMP	ODT	3	DONE

α  EXAM
	EXAM:	JSR	INCKBW	3	GET FIRST CHR
		ASL		1	SHIFT IT
		ASL		1
		ASL		1
		ASL		1
		STA	XADL	3
		JSR	INCKBW	3	GET SECOND CHR
		ORA	XADH	3	OR N STORE
		STA	XADH	3
		JSR	INCKBW	3	GET THIRD CHR
		ASL		1	SHIFT IT
		ASL		1
		ASL		1
		ASL		1
		STA	XADL	3
		JSR	INCKBW	3	GET FORTH CHR
		ORA	XADL	3	OR N STORE IN X
		TAX		1
	??	LDA (X)	XADH	3

		JSR	DLDPY	3	DISPLAY IT
		RTS		1
α  DEPOSIT ∧ DEP REGS ∧ (DEP THEN EXAM NEXT)

α START
	START:	LDX  #	377	2	SET STACK
		TXS		1
		LDA	STPS	2∨3	PUSH PSW
		PHA		1
		LDA	STADL	2∨3	PUSH START ADDR
		PHA		1
		LDA	STADH	2∨3
		PHA		1
		RTI		1	START

α CONTINUE
	CONT:	PLA		1	GET REGS
		TAY		1
		PLA		1
		TAX		1
		PHA		1
		RTI		1	CONTINUE
α SET BREAK
	STBRK:	LDX	NBRK	3
	
		LDA	SVADL	3
		STA (X)	BRKTBL	3
		INX		1
		LDA	SVADH	3
		STA (X)	BRKTBL	3
		INX		1
		LDA  @	SVADR	3
		STA (X)	BRKTBL	3
		INX		1
		LDA	BREAK	2
		STA  @	SVADR	3
	
α RESET BREAK
	RSBRK:	LDX	NBRK	3
		LDA	SVADL	3
		CMP (X)	BRKTBL	3
		BEQ	CKHI
		INX		1
	
α NMSK INT
α  ODT ∨ USER INT ?

α INTRQ
	INTR:	PHA		1	SAVE REG

		LDA	TYOSR
		EOR	TYOMSK
		BNE	OTY

		LDA	TYISR
		EOR	TYIMSK
		BEQ	RETA
		TXA
		PHA
α INCKBW
α DLDPY
α ALDPY

α LOADER
α DUMPER